home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / xb / sample / _title3.bas < prev    next >
Encoding:
BASIC Source File  |  1997-06-06  |  882 b   |  42 lines
  1.  
  2.  /* タイトル出現 その３
  3.     /*  31kHz 対応TNB
  4.  
  5. int x,y,s,x0=9
  6. float z
  7. dim d(199,199),e(400)
  8. /*screen 0,3,0,1
  9. screen 0,3,1,1
  10.  
  11.  /* タイトルを描く
  12. symbol(32,40,"タイトル",2,2,2,rgb(0,15,15),0)
  13. symbol(30,40,"タイトル",2,2,2,rgb(0,31,31),0)
  14. symbol(60,88,"やねんで",2,2,1,rgb(0,24,8),0)
  15.  
  16.  /* ラスタスクロールデータの作成
  17. print " 準備中"
  18. for y=0 to 99
  19. e(    y)=256
  20. e(100+y)=sqr(65536#-6.5536*y*y)
  21. /*e(100+y)=sqr(65536#-6.5536*y*y)
  22. /*e(100+y)=256-sqr(65536#-6.5536*((100-y)*(100-y)))
  23. next
  24. for x=0 to 199
  25. for y=0 to 99
  26.     d(x,y*2  )=(-e(x+150-y)) and &h1ff
  27.     d(x,y*2+1)=( e(x+150-y)) and &h1ff
  28. next:next:beep
  29.  
  30. while 1
  31. print " なにかキーを押して下さい";:asc(inkey$):cls
  32.  
  33.  /* ラスタスクロールデータのセット
  34. ras_scroll_set(4,d,,,55)
  35.  /* ラスタスクロール開始
  36. ras_scroll_stat(1,,,1)
  37.  
  38.  /* スクロール終了まで待つ
  39. while ras_scroll_stat(-1)>=0:endwhile
  40. endwhile
  41.  
  42.